﻿Module Module1
  Sub Main()

    Dim img As Image
    img = Image.FromFile(
      My.Computer.FileSystem.CurrentDirectory &
      "\Foto.tif")
    My.Computer.Clipboard.SetImage(img)
    Console.WriteLine(
      "La foto è stata copiata nella clipboard! ")
    Console.WriteLine(
      "Aprire un documento Word e inserire l'immagine ")
    Console.WriteLine(
      "premendo la combinazione CTRL+C.")
    Console.ReadLine()

  End Sub
End Module
